object JPGQuality: TJPGQuality Left = 474 Top = 310 AutoScroll = False BorderIcons = [biMinimize, biMaximize] Caption = 'JPEG parameters' ClientHeight = 104 ClientWidth = 320 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter Scaled = False PixelsPerInch = 96 TextHeight = 13 object TeLabel1: TTeLabel Left = 8 Top = 8 Width = 102 Height = 13 Performance = kspNoBuffer Caption = 'Choose JPEG quality:' Color = clBtnFace ParentColor = False ThemeObject = 'default' end object TeLabel2: TTeLabel Left = 143 Top = 32 Width = 34 Height = 13 Performance = kspNoBuffer Caption = 'Lowest' Color = clBtnFace ParentColor = False ThemeObject = 'default' end object TeLabel3: TTeLabel Left = 289 Top = 32 Width = 21 Height = 13 Performance = kspNoBuffer Caption = 'Best' Color = clBtnFace ParentColor = False ThemeObject = 'default' end object QualityBar: TTeTrackBar Left = 144 Top = 0 Width = 169 Height = 33 Performance = kspDoubleBuffer Max = 100 Min = 1 Orientation = ktoHorizontal Position = 90 Frequency = 5 TabOrder = 0 Transparent = True ThemeObject = 'default' ShowTicks = False end object TeButton1: TTeButton Left = 72 Top = 72 Width = 75 Height = 25 Performance = kspDoubleBuffer OnClick = TeButton1Click BlackAndWhiteGlyph = False Caption = 'OK' Default = True FontOptions.Bold = False FontOptions.Italic = False FontOptions.SizeDelta = 0 FontOptions.FontColor = clNone FontOptions.StrikeOut = False FontOptions.Underline = False ThemeObject = 'default' TabOrder = 1 WordWrap = False end object CancelButton: TTeButton Left = 152 Top = 72 Width = 75 Height = 25 Performance = kspDoubleBuffer OnClick = CancelButtonClick BlackAndWhiteGlyph = False Cancel = True Caption = 'Cancel' FontOptions.Bold = False FontOptions.Italic = False FontOptions.SizeDelta = 0 FontOptions.FontColor = clNone FontOptions.StrikeOut = False FontOptions.Underline = False ThemeObject = 'default' TabOrder = 2 WordWrap = False end object chkPreserveEXIF: TTeCheckBox Left = 8 Top = 48 Width = 209 Height = 20 Performance = kspDoubleBuffer Caption = 'Preserve EXIF information' AllowGrayed = False Alignment = kalLeftJustify Checked = True Spacing = 5 State = kcbsChecked ThemeObject = 'default' TabOrder = 3 Transparent = True WordWrap = False end object TeForm1: TTeForm Animation.EffectKind = '[ RANDOM ] - Random selection' BorderIcons = [] BorderStyle = kbsDialog Dragging.Sizeable = False SystemMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection' TrayMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection' MinimizeApplication = False Performance = ksfpNoBuffer StayOnTop = False StretchBackground = False WindowState = kwsNormal ThemeObject = 'default' Left = 8 Top = 72 end object m_pFormLang: TsmlFormLangRes LangFileName = 'DefLang.ini' IgnoreEmptyString = False AutoCreateMode = True AddBracket = False StringProperties.Strings = ( 'Caption') StringsProperties.Strings = ( 'Tabs' 'Items') IgnoreControls.Strings = ( 'TeForm1') IgnoreFormCaption = False IncludeListViewItems = False IncludeListViewHead = False IncludeTreeViewItems = False Active = True Left = 248 Top = 72 end end